From: Roland McGrath <roland@gnu.org>
Date: Fri, 25 Jun 1993 22:01:47 +0000 (+0000)
Subject: (find-change-log): Try get-file-buffer before file-exists-p.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95163
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1438263db4f48e948ee83a7a014b3043b03307ee;p=emacs.git

(find-change-log): Try get-file-buffer before file-exists-p.
---

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 6c468a919ec..1277fd7e7b3 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -75,7 +75,7 @@ current buffer to the complete file name."
     ;; Move up in the dir hierarchy till we find a change log file.
     (let ((file1 file-name)
 	  parent-dir)
-      (while (and (not (file-exists-p file1))
+      (while (and (not (or (get-file-buffer file1) (file-exists-p file1)))
 		  (progn (setq parent-dir
 			       (file-name-directory
 				(directory-file-name
@@ -86,7 +86,7 @@ current buffer to the complete file name."
 	;; Move up to the parent dir and try again.
 	(setq file1 (expand-file-name (change-log-name) parent-dir)))
       ;; If we found a change log in a parent, use that.
-      (if (file-exists-p file1)
+      (if (or (get-file-buffer file1) (file-exists-p file1))
 	  (setq file-name file1)))
     ;; Make a local variable in this buffer so we needn't search again.
     (set (make-local-variable 'change-log-default-name) file-name)